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-- BFS.Mesa Edited by Sandman on August 23, 1977 9:47 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
AltoFileDefs: FROM "al tof iledef s\ 
BFSDefs: FROM "bfsdefs", 
DiskDefs: FROM "diskdefs", 
DiskKDDefs: FROM "diskkddef s\ 
InlineDefs: FROM "inl inedef s H , 
MiscDefs: FROM "miscdefs", 
SegmentDefs: FROM "segmentdef s" , 
StringDefs: FROM "stringdef s" ; 

DEFINITIONS FROM AltoDefs, AltoFileDefs, DiskDefs; 

BFS: PROGRAM 

IMPORTS DiskDefs, DiskKDDefs, MiscDefs, SegmentDefs, StringDefs 
EXPORTS BFSDefs * BEGIN 

-- These should be POINTER TO ARRAY OF . . . 
CAvec: TYPE = DESCRIPTOR FOR ARRAY OF POINTER; 
DAvec: TYPE = DESCRIPTOR FOR ARRAY OF vDA; 

ActOnPages: PUBLIC PROCEDURE [arg:POINTER TO update DiskRequest] 
RETURNS [page:PageNumber, bytes :CARDINAL] - 
BEGIN OPEN arg, DiskDefs; a: vDC; ddc: DDC; 
i: PageNumber; cb, nextcb: CBptr; 
cbzone: ARRAY [0..1CBZ) OF UNSPECIFIED; 
zone: CBZptr = @cbzone[0]; 
CAs: CAvec = DESCRIPTOR[ca, 1 astPage+1] ; 
DAs: DAvec = DESCRIPTOR[da, 1 astPage+2] ; 
Initial i z eCBs tor age[ zone, nCB.firstP age, clear]; 
zone. info <- da; zone. cleanup <•* cleanup; 
BEGIN ENABLE RetryableD i skError => RETRY; 
cb ♦- GetCB[zone, clear ! ANY => ERROR]; 
FOR i ♦• zone.currentPage, i + 1 UNTIL i=lastPage+l DO 
BEGIN -- inner compound to skip DoNothing pages 
a «- IF i = lastPage THEN lastAction ELSE action; 
IF a = DoNothing THEN GOTO Sk ipTh i sPage ; 
IF DAs[i] = eofDA THEN EXIT; 
IF signalCheckError AND zone . errorCount = RetryCount/2 

THEN SIGNAL Di skCheckError[ i ] ; 
nextcb «- GetCB[zone,clear] ; 
cb. labelAddress ♦- IF DAs[i + l] = fillinDA 
THEN LOOPHOLE [Qnex tcb . header . diskAd dress] 
ELSE Qnextcb. label ; 
ddc ♦• DDC [ 

cb.IF fixedCA THEN ca ELSE CAs[ i ] , DAs[ i ] , i , f p , FALSE , a] ; 
DoDiskCommand[Qddc] ; 
cb «- nextcb; 
EXITS 

SkipThisPage => NULL; 
END; 
ENDLOOP; 
CleanupCBqueue[zone] ; 
END; -- of enable block 
RETURN[i-l .zone. cur rent Bytes] 
END; 

GetNextDA: PUBLIC PROCEDURE [cb:CBptr] = 
BEGIN 

pn: PageNumber - cb.page; 

DAs: DAvec = DCSCRIPTOR[cb . zone. i nf o , pn+2] ; 
IT DAs[pn+l] = fillinDA THEN 

DAs[pn+i] *- VirtualDA[cb . labelAddress . next] ; 
IT DAs[pn-l] = f ill inDA THEN 

DAs[pn-l] ♦- V i rtualDA[cb . labelAddress .prev] ; 
RETURN 
END; 
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— Currently DiskRequest. action is not used by WritePages (WriteD is assumed), 

— Note also that lastAction is used only if lastPage isn't being rewritten. 

WritePages: PUBLIC PROCEDURE [arg:POINTER TO extend DiskRequest] 
RETURNS [page:PageNumber, bytes.-CARDINAL] = BEGIN 
aop : update DiskRequest; 
f irstNewPage: PageNumber; 
local: extend DiskRequest «• argt; 
DAs: DAvec = DESCRIPTOR[arg . da.arg . lastPage+2]; 
BEGIN OPEN local; 

IF DAs[f irstPage] = fill inDA THEN firstNewPage «• firstPage 
ELSE BEGIN 

aop <~ DiskRequest [ 

ca, da, firstPage, lastPage, fp, fixedCA, WriteD, 
TastAction, signalCheckError , update[GetNextDA]] ; 

[page, bytes] «* Act0nPages[9aop] ; 

IF (firstPage *• page) = lastPage 

AND (lastAction ti WriteD 

OR bytes « lastBytes) THEN RETURN; 

firstNewPage <- firstPage+1; 

END; 
IF firstNewPage <* lastPage THEN 

BEGIN aop. da <- da; 

aop. firstPage «- firstNewPage; 

aop. lastPage ♦- lastPage; 

AssignPages[Qaop] ; 

END; 
[page, bytes] 4- Rewr itePages[Qlocal ]; 
RETURN 
END; END; 

-- Note that only da, firstPage, and lastPage are valid on entry. 

AssignPages: PROCEDURE [arg:POINTER TO update DiskRequest] = 
BEGIN OPEN SegmentDefs, arg ; i: PageNumber; 
DAs: DAvec = DESCRIPTOR[da, 1 astPage+2] ; 
sink: DataSegmentHandl e = NewDataSegment[Def aul tBase, 1]; 
argt <- DiskRequest [ 

DataSegmentAddress[sink], , , , NIL, TRUE , ReadLD, 
ReadLD, FALSE, update[CheckFreePage]] ; 
UNTIL firstPage > lastPage DO 

ENABLE UNWIND => Del eteDataSegment[sink] ; 
FOR i IN [firstPage. .lastPage] DO 

DAs[i] ♦- DiskKDDefs.AssignDiskPage[DAs[i-l]]; 
ENDLOOP; 
i «- firstPage; 

[] «- ActOnPages[arg ! UnrecoverableDiskError--[cb]-- => 
BEGIN -- skip bad spots and press on 
firstPage 4- cb.page; 
DAs[f irstPage] 4- fillinDA; 
firstPage 4- firstPage+1; 
RETRY 
END]; 
firstPage 4- i ; 
FOR i IN [firstPage. .lastPage] DO 

IF (DAs[f irstPage] 4- DAs[i]) ti fillinDA 

THEN firstPage 4- firstPage+1; 
ENDLOOP; 
ENDLOOP; 
DeleteDataSegment[sink] ; 
RETURN 
END; 

FreePageFTD: FID = FID[-1 ,SN[1 . 1 , 1 , 17777B, -1]] ; 

CheckFreePage: PROCEDURE[cb :CBptr] = 
BCGIN 

DAs: POINTTR TO ARRAY [0..1) OF vDA = cb . zone . in f o ; 
IT cb. labelAddress. f ilelD # FreePageFID 

THEN DAst[cb.page] 4- fillinDA; 
RETURN 
END; 
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-- Note that action and lastAction are not used (WriteLD is assumed), 

RewritePages: PUBLIC PROCEDURE [arg:POINTER TO extend DiskRequest] 
RETURNS [PageNumber, CARDINAL] = 
BEGIN OPEN arg; i: PageNumber; 
cbzone: ARRAY [0..1CBZ) OF UNSPECIFIED; 
zone: CBZptr = @cbzone[0]; cb: CBptr; 
CAs: CAvec * DESCRIPTOR[ca, lastPage+1] ; 
DAs: DAvec = DESCRIPTOR[da, lastPage+2] ; 
ddc: DDC ♦■ DDC[ ,ca, ,, fp, FALSE , WriteLD] ; 
Initial i zeCBs tor age[ zone, nCB, firstPage, clear]; 
BEGIN ENABLE Re tryableDi skError => RETRY; 

FOR i «- zone.currentPage, i + 1 UNTIL i=lastPage+l DO 

cb <- GetCB[zone, clear]; 

IF (i * lastPage AND lastBytes # CharsPerPage) 

OR DAs[1+l] = fillinOA THEN DAs[i+l] ♦■ eofDA; 

cb. label .next *• RealDA[DAs[i + l]]; 

cb. label .prev + RealDA[DAs[i-l]]; 

cb . label .bytes «- 

IF i = lastPage THEN TastBytes ELSE CharsPerPage; 

ddc.cb ♦• cb; ddc. da ♦- DAs[i]; ddc. page ♦• i; 

IF -fixedCA THEN ddc.ca <- CAs[i]; 

DoDiskCommand[0ddc]; 

ENDLOOP; 
CleanupCBqueue[zone]; 
END; 
RETURN[lastPage,lastBytes] 
END; 

jump: CARDINAL = 10*nSectors; 

CreatePages: PUBLIC PROCEDURE [ 
ca:POINTER, cfa:POINTER TO CFA, 
lastPage:PageNumber , TastBytes :CARDINAL] * 
BEGIN 

da: vDA «- cfa.fa.da; 
arg: extend DiskRequest; 
DAs: ARRAY [-L.jump] OF vDA; 
page: PageNumber <- cfa.fa.page; 
DO -- until lastPage is written 

MiscDefs.SetBlock[QDAs[-l],f illinDA, jump+2]; DAs[0] «- da; 

arg <- DiskRequest [ 

ca, QDAs[ -page], page, MI N[ last Page, page+( jump-1)] , 

@c f a. f p, TRUE, WriteD.WriteD, FALSE, extend[ TastBytes]]; 

[] ♦- WritePages[@arg]; 

da «- DAs[arg. 1 astPage-page] ; 

page «- arg . lastPage; 

IF page = lastPage THEN EXIT; 

ENDLOOP; 
cfa.fa <- FA[da, lastPage, lastBytes]; 
RETURN 
END; 

DeletePages: PUBLIC PROCEDURE [ 

ca:POINTER, fp:POINTER TO FP, da:vDA, page : PageNumber ] = 

BCGIN 

arg: update DiskRequest; 

lastPage, i: PageNumber; 

DAs: ARRAY [-L.jump] OF vDA; 

UNTIL da=eofDA DO 

MiscDefs.SetBlock[QDAs[-l],f illinDA, jump+2]; 

DAs[0] ♦- da; 

arg ♦- DiskRequest [ 

ca , @DAs[-page] , page , page+( jump-1 ) , f p , TRUE , 
ReadD.ReadO, TALSE , upda te[GetNextDA]] ; 
lastPage «- Ac tOnPages[@arg] .page; 
MiscDefs.Zero[ca,PageSize]; 
arg. Tp - LOOPHOLf [0] ; 
arg. lastPage «- lastPage; 
arg. action <- arg. 1 as tAc t ion ♦• WriteLD; 
[] «- ActOnPages[@arg] ; 
FOR i IN [0. . lastPage-page] DO 

DiskKDOefs.ReleaseDiskPage[*DAs[i]]; 
ENDLOOP; 
da «- DAs[las tPage+1-page] ; 
page «- lastPage+L 
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ENDLOOP; 
RETURN 
END; 

CreateFile: PUBLIC PROCEDURE [name:STRING, f p , dirFP: POINTER TO FP] 
BEGIN OPEN SegmentDefs; 

DAs: ARRAY[-1..2] OF vDA <- [eofDA, fil 1 inDA, fi 11 inDA, eofDA] ; 
buf: DataSegmentHandle s NewDataSegment[Defau1tBase, 1] ; 
Id: POINTER TO LD = DataSegmentAddress[buf ] ; 
arg: extend DiskRequest <- OiskRequest [ 

1 d, 0DAs[O],O,l,fp, TRUE, WriteD.WriteD, FALSE, extend[0]]: 
BEGIN ENABLE UNWIND => De1eteDataSegment[buf ] ; 

MiscDef s . Zero[1d,PageSize]; 

Id. created <- MiscDef s.DAYTIME[]; 

StringDefs.MesaToBcp1String[name,LOOPHOLE[Q1d.name]]; 

Id.propBegin «- @1d . props[0]-ld; 

Id.propLength <- LENGTH[1d .props] ; 

IF dirFP U NIL THEN MakeCFP[Q1d. di rFP , dirFP] ; 

fpt «- FP[DiskKDDefs.NewSN[],eofDA]; 

[] «• WritePages[0arg]; 

END; 
fp.leaderDA «- DAs[0]; 
De1eteDataSegment[buf ] ; 
RETURN 
END; 

MakeFP: PUBLIC PROCEDURE [ 

fp:POINTER TO FP, cfp:POINTER TO CFP] * 

BEGIN 

fpt «- FP[cfp. serial ,cfp. leaderDA]; 

RETURN 

END; 

MakeCFP: PUBLIC PROCEDURE [ 

cfp:POINTER TO CFP, fp:POINTER TO FP] = 

BEGIN 

cfp + «• CFP[fp. serial ,1,0, fp. leaderDA]; 

RETURN 

END; 

END. 



